Testing output of the coding.
## Read the datasets Refer to **Testing efficiency of coding.Rmd** at chunk
## `get-data-summary-table-2.1`
source(paste0(getwd(), "/function/readfirmDatasets.R"))
years <- seq(2011, 2015)
mbase <- readfirmDatasets(years = years)
dateID <- sort(unique(mbase$datasets$Date))
#'@ pander(head(mbase$datasets)) ## exactly same layout with kable(x)
## example of the dataset from firm A + spbo result in the research paper due
## to the data heavy and overload ,max 5mb while generated 79mb html file,
## here I just simply subset the head section
mbase$datasets %>% datatable(., extensions = "TableTools", options = list(dom = "T<\"clear\">lfrtip",
tableTools = list(sSwfPath = copySWF())))
I just simply refer to http://rstudio.github.io/DT/extensions.html and also http://datatables.net/reference/option/dom and casually wrote the code, the outcome is statisfied but the TableTools button Copy, CSV, Excel doesn’t work but only Print. Any solution?
#'@ mbase$datasets %>% datatable(.,extensions=c('ColReorder','ColVis','TableTools'),options=list(dom='CT<'clear'>Rlfrtip',colVis=list(exclude=c(0),activate='mouseover'),tableTools=list(sSwfPath=copySWF()),scrollX=TRUE,scrollCollapse=TRUE))
#'@ #'@ mbase$datasets %>% datatable(.,extensions=c('ColReorder','ColVis','TableTools'),options=list(dom='T|C<'clear'>R|lfrtip',colVis=list(exclude=c(0),activate='mouseover'),tableTools=list(sSwfPath=copySWF()),scrollX=TRUE,scrollCollapse=TRUE))
#'@ mbase$datasets %>% datatable(.,extensions=c('ColReorder','ColVis','TableTools'),options=list(dom='T|C<'clear'>l|Rfrtip',colVis=list(exclude=c(0),activate='mouseover'),tableTools=list(sSwfPath=copySWF()),scrollX=TRUE,scrollCollapse=TRUE))
Thanks lot…
Since the simpleNetwork function only apply to 2 columns dataset, here I split to be 2 graphs.